function cobaM(filepath, k)
A = load (filepath);
[U,S,V] = svds(A,k);
N = V;
D = sprintf('VDS%d.txt', k);
save(D,'N','-ASCII');
quit force
